home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00196_MM Jurassic Frame.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  544 b   |  23 lines
  1. on enterFrame
  2.   global gJurMax
  3.   set gJurMax = 100
  4.   set mem = the number of member "JurassicTxt1"
  5.   repeat with i = 0 to 5
  6.     set the lineHeight of member (mem + i) to 16
  7.     set the scrollTop of member (mem + i) to 0
  8.     set gJurMax = gJurMax + 16 * the lineCount of member (mem+i) - 224
  9.     set the visibility of sprite (21+i) to true
  10.   end repeat
  11.   
  12.   global gJurassicScroll
  13.   jurassicScroll gJurassicScroll
  14.   
  15.   global gJurFora
  16.   set gJurFora = true
  17.   
  18.   global mudouCursor, tipoCursor
  19.   set mudouCursor = false
  20.   set tipoCursor = 1
  21. end
  22.  
  23.